﻿
Namespace PL.MetaSDK
    Public Class MetaUserSociety_PL
        Inherits PLBase
        Implements IPLProcess

        Public Property SocietyID_FK As Guid?

		Public Sub New()
			MyBase.New()
		End Sub
	
		Public Sub New(ByVal queryName As String)
			MyBase.New(queryName)
		End Sub
	
		Sub OnRowUpdating(ByVal sender As Object, ByVal e As SqlRowUpdatingEventArgs) Handles MetaDataTable.OnRowUpdating
	
		End Sub

		Public Overrides Function Delete() As Boolean
		   'Throw New NotImplementedException("Delete To Come...")
		   Return False
		End Function

		Public Overrides Function Validate() As Boolean
		   'Throw New NotImplementedException("Validate To Come...")
		   Return True
        End Function

        Public Function BatchRecords(dataRow() As System.Data.DataRow) As Boolean Implements IPLProcess.BatchRecords
            Return True
        End Function

        Public Function CurrentRecord(dataRow As System.Data.DataRow) As Boolean Implements IPLProcess.CurrentRecord
            Return True
        End Function

        Public Function NewRecord(dataRow As System.Data.DataRow) As Boolean Implements IPLProcess.NewRecord
            'Si on arrive d'un TreeList...
            If SocietyID_FK IsNot Nothing Then
                dataRow("SocietyID_FK") = SocietyID_FK
            End If
            dataRow("MetaUserSocietyID") = Guid.NewGuid
            Return True
        End Function

	End Class
End Namespace
